home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11a.d64
/
spriteb. v3 demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
143 lines
10 REM ********************************
20 REM * *
30 REM * SPRITEBASIC V3.0 DEMO *
40 REM * --------------------- *
50 REM * WRITTEN BY PH. HERZOG *
60 REM * *
70 REM ********************************
80 :
90 _X:_\:__"........":REM RESET +HYPERSCREEN ON
100 _R,13:REM G-ZEIGER AUF BLOCK 13
110 _G"........*****..........."
120 _G"........*****..........."
130 _G".........***............"
140 _G".........***............"
150 _G"..........*............."
160 _G"..........*............."
170 _G"....*************......."
180 _G".....***********........"
190 _G"......*********........."
200 _G".......*******.........."
210 _G".......*******.........."
220 _G".......*******.........."
230 _G".......*******.........."
240 _G".......*******.........."
250 _G".......*******.........."
260 _G".......*******.........."
270 _G".......*******.........."
280 _G"........*****..........."
290 _G"........*****..........."
300 _G".........***............"
310 _G"..........*............."
320 :
330 REM G-ZEIGER SPRINGT AUTOMATISCH AUF 14
340 :
350 _T"............"
360 _T"............"
370 _T"............"
380 _T"............"
390 _T"............"
400 _T".....AA....."
410 _T".....AA....."
420 _T"....BBBB...."
430 _T"..BBBBBBBB.."
440 _T"CAAACCCAAACC"
450 _T"AAACCCAAACCC"
460 _T"..BBBBBBBB.."
470 _T"....BBBB...."
480 _T".....BB....."
490 _T"............"
500 _T"............"
510 _T"............"
520 _T"............"
530 _T"............"
540 _T"............"
550 _T" "
560 :
570 _T"............"
580 _T"............"
590 _T"............"
600 _T"............"
610 _T"............"
620 _T"..BBBAABBB.."
630 _T".BBAAAAAABB."
640 _T"BBAAAAAAAABB"
650 _T"BAAAAAAAAAAB"
660 _T"BBAAAAAAAABB"
670 _T"BBBBBAABBBBB"
680 _T".BB.BAAB.BB."
690 _T"....BAABB..."
700 _T"...BBAAB...."
710 _T"....BAAB...."
720 _T"....BAABB..."
730 _T"...BBAAB...."
740 _T"....BAAB...."
750 _T"....BAABB..."
760 _T"...BBAAB...."
770 _T"....BAAB...."
780 :
790 REM KOLLISIONSDEMO
800 :
810 _U,1,0:_C,0,0:_C,1,12:_M,1:REM FARBEN + MULTICOLOR SETZEN
820 _EX,1:REM EXPAND
830 _I,0,13:_I,1,14:REM SPRITEPOINTER AUF BLOCK SETZEN
840 _P,1,0,200:_P,0,170,0:REM SPRITES SETZEN
850 _N,0:_N,1:REM EINSCHALTEN
860 _W,1,1,0,0,0
870 PRINT"[147]JOYSTICK PORT 2 ZUR STEUERUNG DER BOMBE BENUTZEN"
880 PRINT" F1 [146] TO EXIT"
890 _W,0,USR(16+2*1+0),2,0,0:REM JOYSTICK IM W-BEFEHL
900 IFPEEK(203)=4THEN1000
910 IFUSR(1)=0THEN890:REM KOLLISION?
920 _W,0,1,2,3,0
930 PRINT"[147]";:FORX=0TO63
940 POKE646,X:PRINT"BOOM!
950 [130]:[153]"LOAD":[139][183](1)[178]1[167]930
960 [137]870
970 :
980 [143] _A/_J UND POSITIONSABNBFRAGEDEMO
990 :
1000 _A:[143] INTERRUPT AUS
1010 [153]"LOAD_A/_J UND POSITIONSABFRAGE-DEMO"
1020 _P,0,13,13
1030 _P,1,0,0:_@
1040 _W,0,1,1,0,1:_W,1,1,1,0,1
1050 _J:[143] INTERRUPT WIEDER AN
1060 [153]"DRUECKE EINE TASTE UM DIE RAKETE FALLENZULASSEN!"
1070 [151]198,0:[146]198,1:[151]198,0:_W,0,0,2,0,0
1080 [139][183](257)[179]229[167]1080
1090 _I,0,15:_M,0:_C,0,2:_W,0,0,0,0,0
1100 _P,0,[183](256),207:_EY,0
1110 [129]X[178]0[164]10:_N,0:[129]Y[178]0[164]50:[130]:_F,0:[129]Y[178]0[164]50:[130]Y,X
1120 [139][183](258)[179]400[167]1120
1130 _I,0,13:_H,0:_C,0,0:_N,0
1140 _A:_R,13:_K:_R,14:_K:_P,0,13,0:_P,1,0,13:_W,0,1,1,0,1:_J:_DY,0
1150 [153]"JETZT STEHT ALLES KOPF!"
1160 [153]"WEITER MIT SPACE"
1170 [146]203,60
1180 [153]"LOAD_Z-DEMO"
1190 _F,1:_P,0,50,230:_R,13
1200 _W,0,0,255,0,1
1210 [139][183](257)[177]180[167]1210
1220 _W,0,0,255,0,0
1230 [139][183](257)[177]80[167]1230
1240 _Z:_W,0,1,0,0,0
1250 [139][183](256)[179]300[167]1250
1260 _Z:_W,0,0,1,0,0
1270 [139][183](257)[179]200[167]1270
1280 _Z:_W,0,255,0,0,0
1290 [139][183](256)[179]500[167]1290
1300 :
1310 [143] SPRUNGDEMO
1320 :
1330 _X
1340 _N,0
1350 _I,0,13
1360 [153]"LOADMIT _L,13,255 MACHEN WIR EINEN KASTEN"
1370 _L,13,255:_C,0,1:_I,0,13:_P,0,24,58
1380 [153]"MIT _W,0,20,0,20,0 LASSEN WIR IHN SPRINGEN"
1390 _W,0,20,0,20,0
1400 [153]"DRUECKE SPACEWAIT FUER ENDE":[151]198,0
1410 [161]A$:[139]A$[179][177]" "[137]1410
1420 _X